home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000012_bounce-amos-li…net@onelist.com_Tue Sep 1 18:35:49 1998.msg < prev    next >
Text File  |  1998-10-01  |  8KB  |  371 lines
  1. >From bounce-amos-list--870-mcox=access.digex.net@onelist.com  Tue Sep  1 18:35:49 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.253])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id SAA13637
  4.     for <mcox@access.digex.net>; Tue, 1 Sep 1998 18:35:48 -0400 (EDT)
  5. Received: (qmail 21133 invoked by alias); 1 Sep 1998 22:33:19 -0000
  6. Received: (qmail 21048 invoked from network); 1 Sep 1998 22:33:17 -0000
  7. Received: from unknown (HELO neodymium.btinternet.com) (194.73.73.83) by pop.onelist.com with SMTP; 1 Sep 1998 22:33:17 -0000
  8. Received: from np5gt [195.171.236.153]  by neodymium.btinternet.com with smtp (Exim 1.70 #1) id 0zDz0T-0001p3-00; Tue, 1 Sep 1998 23:34:33 +0100
  9. Message-ID: <002201bdd5f8$c16884a0$99ecabc3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Tue, 1 Sep 1998 23:33:07 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: multipart/alternative; boundary="----=_NextPart_000_0018_01BDD600.DF67AE60"
  23. Subject: [amos-list] I have SNOW Idea What I'm on about!
  24. Status: O
  25. X-Status: 
  26.  
  27. From: "John Glanville" <John.Glanville@btinternet.com>
  28.  
  29. This is a multi-part message in MIME format.
  30.  
  31. ------=_NextPart_000_0018_01BDD600.DF67AE60
  32. Content-Type: text/plain;
  33.     charset="iso-8859-1"
  34. Content-Transfer-Encoding: quoted-printable
  35.  
  36. I hate People who release Progs and say "This Has not Been tested...."
  37.  
  38. So here goes... "This Has Not Been Tested!"
  39.  
  40. So email me if it goes wrong... Update Coming soon...
  41.  
  42. Hide On=20
  43.  
  44. Screen Open 0,320,256,64,Lowres
  45.  
  46. Flash Off=20
  47.  
  48. Curs Off=20
  49.  
  50. Cls 0
  51.  
  52. C=3D2
  53.  
  54. NU=3D50
  55.  
  56. Dim X#(NU),Y#(NU),M#(NU),D#(NU),KEY#(NU),H(320)
  57.  
  58. For I=3D0 To NU
  59.  
  60. X#(I)=3DRnd(320)
  61.  
  62. D#(I)=3DRnd(4)-2
  63.  
  64. Next I
  65.  
  66. YM=3D200
  67.  
  68. Ink 5
  69.  
  70. Bar 0,YM+1 To 320,256
  71.  
  72. Do=20
  73.  
  74. For I=3D0 To NU
  75.  
  76.  
  77. ' Randomablity Variable Being Used...=20
  78.  
  79. ' Lower the 980 for More Snow at a time....!=20
  80.  
  81.  
  82. If KEY#(I)>980
  83.  
  84.  
  85. ' The Unplot.... Get Rid of the snow 2 B Updated...
  86.  
  87.  
  88. F Plot X#(I),Y#(I),0
  89.  
  90.  
  91. ' Check if X axis Movement has gone 2 an Extreeme + or -....=20
  92.  
  93.  
  94. If M#(I)=3DD#(I)
  95.  
  96.  
  97. ' If so Reset the Target Variable.....=20
  98.  
  99.  
  100. D#(I)=3D(Rnd(2)+1)*(-Sgn(D#(I)))
  101.  
  102. Else=20
  103.  
  104.  
  105. ' If not Try and Reach the Target Variable (D#) 4 next Time!=20
  106.  
  107.  
  108. If M#(I)<D#(I)
  109.  
  110. M#(I)=3DM#(I)+Rnd(1)+0.5
  111.  
  112. Else=20
  113.  
  114. M#(I)=3DM#(I)-Rnd(1)-0.5
  115.  
  116. End If=20
  117.  
  118.  
  119. End If=20
  120.  
  121.  
  122. ' Randomized amounts of falling speed....
  123.  
  124.  
  125. YV=3DRnd(6)+1
  126.  
  127.  
  128. ' Add the X axis Movement Variable 2 the X axis Variable...
  129.  
  130.  
  131. X#(I)=3DX#(I)+M#(I)
  132.  
  133.  
  134. ' Check 4 X Over Screen Limits....
  135.  
  136.  
  137. If X#(I)>320
  138.  
  139. X#(I)=3DX#(I)-320
  140.  
  141. End If=20
  142.  
  143. If X#(I)<0
  144.  
  145. X#(I)=3D320+X#(I)
  146.  
  147. End If=20
  148.  
  149.  
  150. ' Check And C if Snow Has Landed...
  151.  
  152.  
  153. If Y#(I)+YV>YM-H(X#(I))
  154.  
  155.  
  156. ' See How High the snow is below the new Flake...
  157.  
  158.  
  159. If H(X#(I))>Rnd(4)+2
  160.  
  161. XV=3DRnd(2)-1
  162.  
  163. X#(I)=3DX#(I)+XV
  164.  
  165. End If=20
  166.  
  167.  
  168. ' The Dead SnowFlake...
  169.  
  170.  
  171. F Plot X#(I),YM-H(X#(I)),C
  172.  
  173.  
  174. ' Reset SnowFlake
  175.  
  176.  
  177. H(X#(I))=3DH(X#(I))+1
  178.  
  179. KEY#(I)=3D0
  180.  
  181. X#(I)=3DRnd(320)
  182.  
  183. Y#(I)=3D0
  184.  
  185.  
  186. Else=20
  187.  
  188. ' Plot if SnowFlake in Air...
  189.  
  190.  
  191. Y#(I)=3DY#(I)+YV
  192.  
  193. F Plot X#(I),Y#(I),C
  194.  
  195.  
  196. End If=20
  197.  
  198. Else=20
  199.  
  200.  
  201. ' Randomability Variable That a SnowFlake will Fall...=20
  202.  
  203.  
  204. KEY#(I)=3DRnd(1000)
  205.  
  206.  
  207. End If=20
  208.  
  209. Next I
  210.  
  211. Loop
  212.  
  213.  
  214.  
  215. And Not a Procedure in sight 2 slow Ne thing down!
  216.  
  217. The Snow Piling up doesn't work properley... I mean have U ever Ceen =
  218. Spikey Snow? exactly... The version I'm on now Piles the snow so that if =
  219. there is 2 much...=20
  220.  
  221. They Form nice little piles....
  222.  
  223. I'm also working on a Isometric Version... And Maybe Even a 3d one!
  224.  
  225. Along with my 3d ShadeClusters Demo!
  226.  
  227.  
  228.  
  229. Bye till next Time... And remeber... A cucumber sandwich may not Save =
  230. the world on its own... But with Salad cream any thing is possible!=20
  231.  
  232.  
  233. ------=_NextPart_000_0018_01BDD600.DF67AE60
  234. Content-Type: text/html;
  235.     charset="iso-8859-1"
  236. Content-Transfer-Encoding: quoted-printable
  237.  
  238. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
  239. <HTML>
  240. <HEAD>
  241.  
  242. <META content=3Dtext/html;charset=3Diso-8859-1 =
  243. http-equiv=3DContent-Type>
  244. <META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
  245. </HEAD>
  246. <BODY bgColor=3D#ffffff>
  247. <DIV><B><FONT face=3D"Calisto MT">
  248. <P>I hate People who release Progs and say "This Has not Been=20
  249. tested...."</P>
  250. <P>So here goes... "This Has Not Been Tested!"</P>
  251. <P>So email me if it goes wrong... Update Coming soon...</P>
  252. <P>Hide On </P>
  253. <P>Screen Open 0,320,256,64,Lowres</P>
  254. <P>Flash Off </P>
  255. <P>Curs Off </P>
  256. <P>Cls 0</P>
  257. <P>C=3D2</P>
  258. <P>NU=3D50</P>
  259. <P>Dim X#(NU),Y#(NU),M#(NU),D#(NU),KEY#(NU),H(320)</P>
  260. <P>For I=3D0 To NU</P>
  261. <P>X#(I)=3DRnd(320)</P>
  262. <P>D#(I)=3DRnd(4)-2</P>
  263. <P>Next I</P>
  264. <P>YM=3D200</P>
  265. <P>Ink 5</P>
  266. <P>Bar 0,YM+1 To 320,256</P>
  267. <P>Do </P>
  268. <P>For I=3D0 To NU</P>
  269. <P></P>
  270. <P>' Randomablity Variable Being Used... </P>
  271. <P>' Lower the 980 for More Snow at a time....! </P>
  272. <P></P>
  273. <P>If KEY#(I)>980</P>
  274. <P></P>
  275. <P>' The Unplot.... Get Rid of the snow 2 B Updated...</P>
  276. <P></P>
  277. <P>F Plot X#(I),Y#(I),0</P>
  278. <P></P>
  279. <P>' Check if X axis Movement has gone 2 an Extreeme + or -.... </P>
  280. <P></P>
  281. <P>If M#(I)=3DD#(I)</P>
  282. <P></P>
  283. <P>' If so Reset the Target Variable..... </P>
  284. <P></P>
  285. <P>D#(I)=3D(Rnd(2)+1)*(-Sgn(D#(I)))</P>
  286. <P>Else </P>
  287. <P></P>
  288. <P>' If not Try and Reach the Target Variable (D#) 4 next Time! </P>
  289. <P></P>
  290. <P>If M#(I)<D#(I)</P>
  291. <P>M#(I)=3DM#(I)+Rnd(1)+0.5</P>
  292. <P>Else </P>
  293. <P>M#(I)=3DM#(I)-Rnd(1)-0.5</P>
  294. <P>End If </P>
  295. <P></P>
  296. <P>End If </P>
  297. <P></P>
  298. <P>' Randomized amounts of falling speed....</P>
  299. <P></P>
  300. <P>YV=3DRnd(6)+1</P>
  301. <P></P>
  302. <P>' Add the X axis Movement Variable 2 the X axis Variable...</P>
  303. <P></P>
  304. <P>X#(I)=3DX#(I)+M#(I)</P>
  305. <P></P>
  306. <P>' Check 4 X Over Screen Limits....</P>
  307. <P></P>
  308. <P>If X#(I)>320</P>
  309. <P>X#(I)=3DX#(I)-320</P>
  310. <P>End If </P>
  311. <P>If X#(I)<0</P>
  312. <P>X#(I)=3D320+X#(I)</P>
  313. <P>End If </P>
  314. <P></P>
  315. <P>' Check And C if Snow Has Landed...</P>
  316. <P></P>
  317. <P>If Y#(I)+YV>YM-H(X#(I))</P>
  318. <P></P>
  319. <P>' See How High the snow is below the new Flake...</P>
  320. <P></P>
  321. <P>If H(X#(I))>Rnd(4)+2</P>
  322. <P>XV=3DRnd(2)-1</P>
  323. <P>X#(I)=3DX#(I)+XV</P>
  324. <P>End If </P>
  325. <P></P>
  326. <P>' The Dead SnowFlake...</P>
  327. <P></P>
  328. <P>F Plot X#(I),YM-H(X#(I)),C</P>
  329. <P></P>
  330. <P>' Reset SnowFlake</P>
  331. <P></P>
  332. <P>H(X#(I))=3DH(X#(I))+1</P>
  333. <P>KEY#(I)=3D0</P>
  334. <P>X#(I)=3DRnd(320)</P>
  335. <P>Y#(I)=3D0</P>
  336. <P></P>
  337. <P>Else </P>
  338. <P>' Plot if SnowFlake in Air...</P>
  339. <P></P>
  340. <P>Y#(I)=3DY#(I)+YV</P>
  341. <P>F Plot X#(I),Y#(I),C</P>
  342. <P></P>
  343. <P>End If </P>
  344. <P>Else </P>
  345. <P></P>
  346. <P>' Randomability Variable That a SnowFlake will Fall... </P>
  347. <P></P>
  348. <P>KEY#(I)=3DRnd(1000)</P>
  349. <P></P>
  350. <P>End If </P>
  351. <P>Next I</P>
  352. <P>Loop</P>
  353. <P> </P>
  354. <P>And Not a Procedure in sight 2 slow Ne thing down!</P>
  355. <P>The Snow Piling up doesn't work properley... I mean have U ever Ceen =
  356. Spikey=20
  357. Snow? exactly... The version I'm on now Piles the snow so that if there =
  358. is 2=20
  359. much... </P>
  360. <P>They Form nice little piles....</P>
  361. <P>I'm also working on a Isometric Version... And Maybe Even a 3d =
  362. one!</P>
  363. <P>Along with my 3d ShadeClusters Demo!</P>
  364. <P> </P>
  365. <P>Bye till next Time... And remeber... A cucumber sandwich may not Save =
  366. the=20
  367. world on its own... But with Salad cream any thing is=20
  368. possible! </P></B></FONT></DIV></BODY></HTML>
  369.  
  370. ------=_NextPart_000_0018_01BDD600.DF67AE60--
  371.